l'orcected MASTER 


THE CONTENTS OF THIS MANUAL REVEAL MANY OF THE MYSTERIES OF 
THE GAME. ‘THE GAME DIRECTOR, OR "OPERATOR" MAY WISH TO CON- 
-CEAL THE CONTENTS FROM THE PLAYERS IN ORDER TO ENHANCE THE 
EXCITEMENT OF THE GAME. THE OPERATOR SHOULD PLAY THE GAME BF- 
FORE READING THE LISTINGS! 


KIM— VENTURE 


CASSETTE INFORMATION 


Thirty seconds (30 sec.) of SYNC characters first. KIM speed. 
ID Loads Time 


A1 000 - OFO 135 After loading all three segments of 

A2 0100 O3FF 1:40 the game, use the key sequence [av] k 
A3 1780 - 17E6 :20 ..0100, GQ to start the game. 

06 0100 - 0274 Scoring Program. Do not load this segment until 


you are ready to stop the game. 


The information in this manual has been reviewed and is believed 
to be entirely reliable. However, no responsibility is assumed 
by either Robert Leedom or ARESCO, Inc. for any inaccuracies. 
The material in this manual is for informational purposes only 


and is subject to change without notice. 


@) 1979, Robert Leedom 
ARESCO, Inc. * PO Box 1142 * Columbia * MD * 21044 





KIM-VENTURE OPERATION 


These notes do not relate to the play of the game, but 
rather to the loading and running of the program by some- 
one familiar with the KIM-1 microcomputer. Having followed 
these instructions, the "operator" may then turn ¿the game 
over to a player (or group of players); giving the player 
only the sheets labeled KIM-VENTURE INSTRUCTIONS. 


LOADING THE PROGRAM 


It is assumed that the operator knows the basic procedure 
for loading programs from audio tape. If not, the subject 
is well covered on page 47 of the KIM-1 User Manual. The 
KIM-VENTURE cassette consists of approximately 30 seconds 
of SYNC characters, followed by three program segments. 
The segments have been given ID numbers Al, A2, and A3. 


To load the program, you must load the first segment (ID AL)» 
stop the recorder while you change the ID to A2, then load 

the second segment. Finally, stop the recorder while changing 
the ID to A3, and load the last segment of the program. 


RUNNING THE PROGRAM 


1. Once the program has been loaded, start the game with 
the key sequence: ADI 4 Dwele Deds o) 


2. At any time, the game can be halted by pressing the 
RESET key ( /RS/ ). The game may be resumed at the point 
of interruption by using the key sequence /AD/ , 0,1,0,0, /GO/. 


3. To start a new game without having to reload the whole 
program, start by loading only the first segment (ID=A1). 
Check location O3BD to be sure that it contains OE. It 
may have been changed to 05; if so, enter OF before going 


on. 


The change can be done by using the key sequence FEDI 59, 
3,B,D, /DA/, 0,E. Then begin the game again using the 
key sequence specified in step 1 (/AD! » Oy l OO fgo/). 


TE the players wish to stop the game and resume play at a 
later date, the operator can save the game status by dumping 
page zero (locations 0000 through OOKE) on cassette. Label 

the cassette STATUS DATA. Write the data stored in location 
03BD on the tape label along with the title. This data will 

be needed when play is resumed. When ready to begin the game 
again (from the point at which it was stopped), load sections 
Ai, A2, and A3, then load your stored page zero Status Data. 
Load location 03BD with the data written on the cassette label, 


then start the game as usual at location 0100. 


SCORING 


To check on a player's score, stop the game using the RS 
(reset) key. Then load the scoring program (ID=06). Remember 
to set F1=0! Then enter /AD/ ,0100, /G0/ . KIM will display 
the word SCORE, then the player's CLASS and the number of moves 
it took that player to reach that class. The object, of course, 
is to obtain the lowest number of moves -hich—corresponds—to- 
ie ttest—et+. 

CLASS TITLE QUALIFICATIONS 


A Grandmas ter Deposited both treasures inside the house 
in 40 moves or less 


B Master Deposited both treasures inside the house 
in 41 moves or more 

G Junior Master Deposited one treasure inside the house 

5 os Visited all areas of the caverns 

n pit occ Found both treasures 

F Experienced wot stuck in the caverns. If a player gets 

Adventurer stuck, he cannot earn a higher rating! 

G Explorer Passed the first big obstacle - OR - used 
the F key correctly 

H Amateur Entered the caverns 

I Novice Found three objects 

J Beginner Explored all the above-ground locations 

O Unrated None 


gH U U ia 0 


Class # of Moves 
TO CHANGE THE DISPLAY RATE 
If KIM "text" is unfamiliar (for example, "ur Ak " is read 


"You are at"), the operator may want to slow down the dis- 
play to give the players more time to examine it. Changing 
the data in location 02FA from CO to a larger number (for 
example, EO) will slow the display rate. Once the players 
have become familiar with the text, the operator may wish 

to "speed up" the game somewhat by increasing the speed of 
the display rate. A value smaller than CO in location 02EA 
(such as 50) will speed it up. Experiment to determine which 


display rate is most comfortable for the players. 


PROGRESS CHECK 


"Losing" is doing something during the course of the adventure 
that makes it impossible. to get any further in the game. There 
are no messages to this effect, since it will usually take the 
players several moments to come to the conclusion that they 

are "trapped in the caves". If the players think they've lost, 
the operator can check their "score" by pressing RESET ( RS ), 


and checking the following locations: 


If location 0040 contains 01, the player cannot get any deeper 
into the caves because the necessary resources have been used 
up. 

If location 0045 contains 06 AND if location 003E does not 
have bit 2 set to 1 (that is, if the contents of 003E, ANDed 
with $04 is not equal to $04), then the player is stuck right 


where he is...and he doesn't have what he needs to get out. 


If neither of the above conditions is true, the player is 
still in the game. Confinue, using (AD), oroo, [Eo]. 


If the player has not "lost" the game, he may still find 
himself unable to retrieve the treasures, and may concede 
a "loss". In this event, he receives no score nt all, 1% 
the player retrieves only one treasure, he receives no score Loner 
In order to "win" the game, the player must retrieve both 
treasures and leave them in the cellar of the house. 


Many players come to the conclusion that they can leave the 
treasure "at" the house, rather than “in" it; the operator 


may or may not wish to call this error to the player's atten- 


LON i = % 
pi M 

The operator may wish to provide pencils and paper to the 2 W 
o y 


players so they can keep track of where they have been and au. 
of the "symbols" displayed. Many players will draw a "map" 

of the caves as they explore, drawing in all the objects and 
monsters encountered. The operator should cooperate, because 
the players will feel more confident of their ability to 

"figure it out". In addition, the operator may wish to keep 

a running tally of the number of locations visited by each 
player (or group of players). This "score" can then be used Yue 
to award titles such as "grand master” or "adventurer extra- 


ordinaire" to the player with the least number of moves. 


The listing provided with the game is for the operator's use, 
and (as with these notes) should not be shown to the players. 
The operator might find it desireable to make modifications 

or enhancements, since this version of KIM-VENTURE is designed 


to be run on a "bare-bones" KIM. 


We welcome any comments and/or suggestions regarding your 
experiences with KIM-VENTURE. Please do not hesitate to. offer 
your remarks, since we are definitely interested in doing all 


we can to improve and upgrade the game. 


Robert Leedom 


0000 
0002 
0004 
0006 
0009 
000B 
000D 
0010 
0013 
0014 
0016 


0018 
001B 
001E 
0020 


0021 
0022 
002 

0024 
0025 
0026 
0027 
0028 
0029 
002A 
002B 
002C 
002D 
002E 
002F 
0030 
0031 
0032 


EF 
00 


7F 
41 


09 


FO 
LE 


06 
PI 


3D 
6A 
EF 


17 


00 
1F 


iF 
if 


KIM-VENTURE LISTING 


; KIM-VENTURE © Copyright R.C.Leedom 1979 
, 
; LIGHT Subroutine. Lights KIM 7-segment dis- 
; plays with character-codes contained 
; in table WINDO. On return, key from 
; keyboard is in A-reg (else A-reg=$15). 
; Y-reg is preserved. 
LIGHT STY YSAV Save Y-register. 
LDY #0 
LDA #$7F Set directional 
STA PADD registers. 
LDX #9 Start with leftmost 
LITELP STY TEMP character. 
LDA WINDO,Y Get char to be shown. 
JSR CONVD+6 Use KIM monitor subr. 
INY Next char on right ... 
CPY #6 Dorie all six yet? 
BCC LITELP Not yet. Continue. 
KBG JSR KEYS Before return, sample 
JSR GETKEY the KIM keyboard. 
LDY YSAV Restore Y-register. 
RTS 
$ 
; Character look-up table. Frequently-used 
; characters stored as 4~bit pointers 
; into part of this table (FUTBL). In- 
; frequently-used characters stored as 
$ 8-bit pointers into the other part 
; (IUTBL). Note that the last two en- 
3 tries are variables, used for special 
; program-controllable characters. 
$ 
Index Character 
FUTBL 2 A 
3 C 
L D 
5 E 
6 H 
7 I 
8 L 
9 N 
A 0 
B R 
C S 
D T 
E U 
F (blank) 
IUTBL i0 - (dash) 
11 B 
12 F 
13 G 


0033 
0034 
0035 
0036 
0037 
0038 
0039 
003A 
003B 
003C 


003D 
003E 
003F 
0040 
0041 
0042 
0043 
oo4l 


0045 
0046 
0047 
0048 
0049 
OO4A 
004B 
004C 


004D 
OO4E 
OO4F 
0050 
0051 
0052 
0053 


1E 
a 
73 


3E 
'6E 


00 
00 
00 
PF 
EC 
00 
00 
00 


OB 
FP 
00 
00 
00 
00 


00 


02 
04 
08 
10 
20 


80 


; (continuation of IUTBL) 


14 
15 
16 
17 
18 
19 
1A 
1B 
1C 
1D 


$ 
NMBUTS 
BURDEN 
DLOBAD 
DRAGON 
EGOLAD 
LOCAD 
LINTAX 
LOBJAD 


LOCNUM 
MBUT 
NOBCRY 
NOBS 
OBJ 
POINTR 


MOVES 


J 

M 

P 

W 

Y 

? 

. (period) 

2 

RES 1 Variable (signpost) 
RES 1 Variable (? or magic 


button 


Program variables (except for a very few 


located elsewhere) 
No. of magic button uses 
Bit #n set if carrying object #n. 
Abs address of obj to be deleted. 
FF=hungry; O=dead; i=full. 
Current address of EGO file. 
Addr of current loaction file. 
Pointers O=EGOLAD; 1=LOCAD. 
Addr of last obj in file, or 
of object of interest. 
Number of current location. 
Current magic button (0 - F valid). 
No. of objects carried (0 - 4). 
No. of objs to be displayed (0 - 7). 
Object identifier (0 - 7). 
ADL of message 
ADH of message (Constant!) 
L.S. Half of number cf moves. 


Program constants 


È 
OBJMSK 


20 ‘ea «wo vo we wo we 


B00000010 (1) Bird When obj is 
B00000100 (2) Rope picked up (or is 
B00001000 (3) Rod dropped), the 
B00010000 (4) File proper bit is 
B00100000 (5) Cage  ORed into (or is 
B01000000 (6) Pearls NANDed out of) 
B10000000 (7) Gold BURDEN. 


Message addresses. These are the ADL's of 


the messages, all of which are assumed 
to reside in page 3 (see POINTR+1). 
Order of this table is paramount! 
There is a variable thrown in here to 
separate ADOPGR and ADBRDG ... 


0054 34 ADOPGR +OPNGRM Open Grate 

0055 00 SCDU RES 1 -1,0,1,2 3 Browse, Carry, 
Drop, Use 

0056 2B ADBRDG +BRAGM Bridge Across Gully 

0057 BE OBMSAD +ADDRAG (0) Dragon 

0058 DC +BIRD (1) Bird 

0059 43 +ROPE (2) Rope 

005A EL +ROD (3) Rod 

005B 25 +FILE (4) File 

0050 22 +CAGE (5) Cage 

005D 1C +PEARLS (6) Pearls 

005E 46 +G OLD (7) Gold 

005F 8C UINMAD +URIN You Are In 

0060 89 +URAT You Are At 

0061 B5 + ISEE I See - 

0062 E7 CYMSAD +CARRY Carry - 

0063 D7 +DROP Drop - 

0064 AE +USE Use - 

0065 06 LNAMAD +CELLAR Cellar O 

0066 09 +PURPLO Purple Oracle 1 

0067 11 +REDRM Red Room 2 

0068 18 ADSSM +STSTPS Stone Steps 3 

0069 D3 +BLUDEN Blue Den 4 

006A 3C ADGRM +STGRAT Steel Grate 5 

006B 4F + HOLE Hole 6 

006C 38 ADGYM  +GULLY Gully 7 

006D 7B ADRHM +RYHALL Royal Hall 8 

006E AB +HOUSE House 9 

OO6F DB +BIRDRM Bird Room A 

0070 70 +STREAM Stream B 

0071 52 ADTSM +TSHAFT Tight Shaft G 

0072 93 +NPIT N. Pit D 

0073 EF +GROTTO Grotto E 

0074 6A +OYSTRB Oyster-bed F 

0075 28 +CHUTE Chute 10 

0076 73 +EPIT E. Pit 11 

0077 9B +ATTIC Attic 12 

0078 EB +S PIT S., Pit 13 

0079 56 +TUNNEL Tunnel 14 

007A 5D +SLIT 2-Inch Slit 15 

007B 82 +G LEN Glen 16 

007C F3 +FOREST Forest 17 
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007D 
007E 
007F 
0080 
0081 
0082 
0083 
0084 
0085 


0086 
0087 
0088 
0089 
008A 


9 


O 


$ 


88 
3F 
WE 
43 
4C 
LD 
52 
50 
00 


9 
11 
LA 
45 
03 


Bit 7 = 1, bit 


CAVE MAP 


Format for file for each location in caves is as follows: 


Word # 


Contents 

= 0, Bit 5 = 1 if location has 
been visited during the game. Bits 4 - 0 
contain the location number of this file. 









Bit 7 = 0. Bit 6 = 1 if magic button works 


in this location. Bits 5,4,3,2,1,0 = 1 if 
you can leave this location in the D,U,W,5; 
E,N direction, respectively. This word is 
used as the "signpost" in the Cue message. 


next (up Bit 7 = 0, bit 6 = 1. Bits 5 - O specify a 
to) six 
words 


location to which you may move from this 
location. 

The first of these words specifies the 
destination for the lowest-numbered bit 
which is set in word 1; the second specifies 
the destination for the next-lowest bit set 
in word 1, etc. 

Therefore, there must be one of these words 
for each of the first six bits (5 - 0) set 
in word 1 of this file. 


next (up Bit 7 = 0, bit 6 = 0, Bits 5 - 0 specify the 
to) eight 
words 


object number of an cbject at this location. 
There may be as many as eight of these words, 
or there may be none at all. 


LOCNUM = 8 Royal Hall 
Directions: N,E,S,W.U,D 

N to Grotto (E) 

to Stone Steps (3) 

to Tight Shaft (C) 

to N, Pit (D) 

to Attic (12) 

to Chute (10) 


va ZN 


DRAGAD Dragon 


LOCNUM = 14 Tunnel 
Directions: N,U 

N to Bird Room (A) 

U to Steel Grate (5) 

Rod 


° 
008B 
008C 
008D 
008E 


008F 
0090 
0091 


$ 

0092 
0093 
0094 
0095 


0096 
0097 


0098 
0099 
009A 
009B 


009G 
009D 
009E 
009F 


OOAO 
00A1 


00A2 
0043 
00A4 


OOAS 
00A6 


O0A7 
00A8 


00A9 
OOAA 


OOAB 
OOAC 


OOAD 
OOAE 
OOAF 
OOBO 


LOCNUM = 15 2-Inch Slit 
Directions: N,S 

N to Stream (B) 

S to Steel Grate (5) 





LOCNUM = 16 Glen 
Directionss E 
E to Stream (B) 





LOCNUM = F Oyster-Bed 
Directions: U 

U to Blue Den (4) 

Pearls 


LOCNUM = 0 Cellar 
Directionss U, Magic 

(Magic to Stone Steps) 
U to (at) House (9) 


Cage 
Rope 
File 
LOCNUM = 1 Purple Oracle 


Directionss W,E 
E to Bird Room (A) 
W to Stone Steps (3) 


LOCNUM = 2 Red Room 
Directions: E,U,Magic 
(Magic to Cellar) 
E to Gully (7) 
U to Attic (12) 
Gold 


LOCNUM = 3 Stone Steps 
Directions: U,D,Magic 
(Magic to Cellar) 
U to Purple Oracle (1) 
D to Royal Hall (8) 


LOCNUM = 4 Blue Den 
Directions: N,D,Magic 
(Magic to Cellar) 
N to Hole (6) 
D to Oyster-Bed (F) 


LOCNUM = 5 Steel Grate 
Directionss N,D 

N to 2-Inch Slit (15) 

D to Tunnel (14) 


10 


00B1 86 LOCNUM = 6 Hole 


00B2 00 Directions: None! 

00B3 87 LOCNUM = 7 Gully 
ooR4 OC Directions: S,W 

00B5 HE S to Grotto (E) 

00B6 42 W to Red Room (2) 

00B7 89 LOCNUM = 9 House 
00B8 2E Directionss E,S,W,D 

00B9 57 E to Forest (17) 

OOBA 4B S to Stream (B) 

00BB 56 W to Glen (16) 

00BC 40 D to Cellar (0) 

OOBD 8A LOCNUM = A Bird Room 
OOBE 02 Directions: S,W 

OOBF 54 S to Tunnel (14) 

ooco 41 W to Purple Oracle (1) 

00Ci 01 Bird 

00C2 8B LOCNUM = B Stream 
00C3 OF Directions: N,E,5,W 

oock 49 N to House (9) 

00C5 57 E to Forest (17) 

09C6 55 S to 2-Inch Slit (15) 

90C7 56 W to Glen (16) 

90C8 8C LOCNUM = € Tight Shaft 
00C9 30 Directions: U,D 

OOCA 52 U to Attic (12) 

OOCB 53 D to S. Pit (13) 

OCCO 8D LOCNUM = D N, Pit 
OOCD 2A Directions: E,W,D 

OOCE 51 E to E. Pit (11) 

OOCF 50 W to Chute (10) 

oope 46 D to Hole (6) 

00D1 BE LOCNUM = E Grotto 
00D2 0D Directions: N,S,W 

00D3 43 N to Stone Steps (3) 

00D4 LD S to Ne Pit (D) 

00D5 47 W to Gully (7) 

00D6 97 LOCNUM = 17 Forest 
00D7 09 Directions: N,W 

00D8 49 N to House (9) 

00D9 4B W to Stream (B) 


dd 


OODA 90 LOCNUM = i0 Chute 


OODB 20 Directions: D 

oopc 4c D to Tight Shaft (C) 

OODD 91 LOCNUM = 11 E. Pit 
OODE 35 Directionss N,S,U,D 

OODF 4D N to N. Pit (D) 

O0E0 53 S to S. Pit (13) 

00E1 4C U to Tight Shaft (C) 

00E2 46 D to Hole (6) 

00E3 92 LOCNUM = 12 Attic 
00E4 20 Directions: D 

00E5 48 D to Royal Hall (8) 

00E6 93 LOCNUM = 13 S. Pit 
00E7 22 Directionss N,E,U,D 

00E8 LD N to N. Pit (D) 

00E9 51 E to E. Pit (11) 

OO0EA 52 U to Attic (12) 

OOEB 44 D to Blue Den (4) 


EGO File ("File of the self") 
Behaves like any other location, except that the 
"Directions" word is used for the Most Significant 
Half of the double precision MOVES counter. This 
file is initially empty; objects picked up by the 
adventurer are placed here until they are dropped. 


; 

OOEC 9F LOCNUM = iF EGO File 
Q0ED 00 M.S.H. Of MOVES 

O0EE 9F EOCM End Of Cave Map Flag (a constant) 


KIM monitor locations used by KIM-VENTURE 


OOEF YSAV RES 1 Used by LIGHT S/R to save Y-Reg. 
This location is destroyed each 
time ADDOBJ is called -- EOCM 
gets written here. 

isplay window for LIGHT S/R. Realiy 
only need six, but for the fact 
that FILMSG keeps unpacking ms:;'s 
till it ends on a whole byte -- 
thus clobbering 1 or 2 extras... 

OOF? DIR RES 1 Direction moved. O=N,...,5=D. 


OOFO WINDO RES 7 


wo wo =a ve Oo se sc we 


ji 


5 
OOFC TEMP RES Used by LIGHT and monitor together. 
OOFD LCTR RES 1 Letter-counter for FILMSG. 
OOFE DISNXM RES 1 Display-next-message flag. If nonzero, 
i FILMSG will add DISNXM to ADL of 
; message (POINTR) and start over. 


0100 
0101 


0103 
0105 


0107 
0108 
0109 
010B 
010D 
010F 
0111 
0113 
0115 
0117 
0119 
011B 
921D 
011E 
0120 
0122 
0125 
0127 
0129 
012C 
012E 
012F 
0131 
0134 
0136 
0137 
0139 
01 3C 
013E 
0140 
0143 
0145 


E8 


BS 


86 
29 
C5 
DO 
09 


BY 
29 
AA 
84 
BY 
20 


B4 
20 
A6 
DO 
AD 


e? 


85 
BD 
B5 
AO 
20 
A9 
4C 


45 


a5 
7B 


LG 
E7 
3C 
SF 
B3 
OB 
00 


LF 


02 


Oz 


CLD 
LDA 


ul o uo wo 


TART 


EWLOC STA 
LDX 


= $). we we we 


INX 
INX 
LDA 
BPL 
STX 
AND 
CMP 
BNE 
ORA 
STA 
LDY 
AND 
TAX 
oe 
LDY 
JSR 
LDX 
LY 
SR 
LDX 
DEX 
BNE 
LDA 
AND 
TAX 
STA 
LDA 
STA 
LDY 
JSR 
MVTOBH LDA 
OBHLNK JMP 


CKLNUM 
CKLNLP 


START segment. 
/AD/ y 9100, 


LOCNUM 


NEWLOC segment. 


LOCNUM 
#SOCM=2 


0,X 
CKLNLP 
LOCAD 
#ELF 
LOCNUM 
CKLNUM 
#PAO 
0,X 
1,7% 

#1 


SGNPOT 
UINMAD ,X 
FILVSG 
LOCNUM 
LNAMAD ,X 
FILMSG 
LOCNUM 


NVTOBH 
TIMER 
PDF 


MBUT 
DIGCOD,X 
MBCODE 
FASSMAD 
FI LMSG 
ABB 
OBHNDL 


Begin here using keys 


(607 


PROGRAM START POINT. 
Start at preloaded loc. 


Program comes here any 
time a location is entered. 


New location entry. 
Start-of-cave-map is 

; used as starting 

s point for file search. 


Is this a start-of file? 

No. Keep looking. 

Yes, save file address, 
and see if it's tae 
one he moved tO +... 

No. Look for next. file. 

Yes. Indicate "visited 
here" for scoring. 

Get "Directions" word. 

Set X-reg for "IN" if 
LOCNUM even; else "AT". 

Signpost = "Directions". 

Show "You are in" 
or "You are at”, 


Show location name. 


At Purple Oracle? 
No, move to obj-handler, 
Yes, so pick 

a random magic button. 


Save the but-or 
and the display-code 
(from monitor) for it. 
Show "A Sign Says 
Magic Button Is X" 
Set up for "I See" in 
Object-Handler, 


0148 
OLLA 
014C 
014E 
0150 
0152 
0155 
0157 
0159 
O15C 
015E 
0160 


0162 
0164 


0166 


0168 


0164 € 


016C 
016E 
0171 
0173 
0175 
0177 
0179 
017B 
017D 
017F 
0131 
01€3 
0184 


0186 


0189 


018B 
018D 
018F 


A6 
E6 
DO 
F6 
AO 
20 
C9 
BO 
4C 
C9 


FO 


c9 
90 


DO 


A9 


AO 
20 
AO 
c5 
DO 
A9 
A6 
FO 
AQ 
EO 
BO 
CA 
FO 


DO 


AG 
B5 
AO 


”» 


PF 


02 


17 


02 


3 MNMVLP (Main Move Loop). 


MNMVLP 


MNLOOP 


MNLCON 
STLINK 


= ~e “e va mo 


Program comes here 


after each move and stays here till next. 


LDA 
INC 
BNE 
INC 
LDY 
JOR 


EGOLAD 
MOVES 
MNLOOP 
1,X 


#CUSMAD 


FILMSG 


CMP #6 


BCS 
JMP 
CMP 
BCC 
BEQ 


CMP 
BCC 


BNE 


; F 
LDA 
STA 
LDY 
JSR 
LDY 
CMP 
BNE 


LDA # 


LDX 
BEQ 
LDA. 
CPX 
BCS 
DEX 
BEQ 


INC 


BNE 


MOVER 


MNLCON 
S PROC 
BB 
START 


ASF 
OBHLNK 


MNLOOP 


key has been hit. 


#53 
MBCODE 


#MBIMAD 


FILMSG 


#CUEMAD 


MBUT 
MNMVLP 
J 
LOCNUM 
NEWLNK 
#0 
#5 
NOJMSG 


STLINK 


NVBUTS 


NEWLNK 


Enter here after each move. 
Move count. Overflow? 

No, 

Bump MSH of MOVES. 

Loop here till he moves. 
Show “?", Signpost. 

Key = 0 - 5? (Dir?) 


Do Special Proc. 
6 - A? (No-0p?) 

Count as a move. 

= Ba To Browse, act 

3 as if just moved here. 
= C,D, or E? 

Yes. Handle objects: 

? via NEWLOC. ) 

If key is none of the 

$ above, and not F, 

$ do nothing. 

Magic Processing. 

Insert “?" to ask what 
Magic Button is. 


Yeso 
Key = 


(Go 


Ask the question, 
Did he hit the right one? 
No. Count as a move, 
Yes, so magic might work. 
In the Cellar? 
Yes. To Stone Steps now. 
Is location number 
1ipher than 4? 
Yes, Spell won't work. 
At Purple Oracle? 
Yes. Spell not only won't 


; work, it changes! 
OK. At Stone Steps, Red 
; Room, or Blue Der.. 


3 Bump M.B. counti, and 
$ go te Cellar (via 
$ MOVE R ) a 


Processes direction commands (if you 


made it through SPROC). 


LDA 
LDY 


OVER LDX LOCAD 


1¿X 
HOPE 
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Address current file, 
pick up "Directions", 
and init check count. 


0191 C8 CKNDIR INY 


0192 +A LSR This direction 0K? 
0193 90 05 BCC CKDLP No. See if done. 
0195 E8 INX Yes. Bump pointer, and 
0196 C4 F7 CPY DIR s see if this is the 

' s desired direction. 
0198 FO 09 BEQ DIROK It is. Go do it. 
019A CO 05 CKDLP CPY #5 Isn't. Tried all dir's? 
019C DO F3 BNE CKNDIR No, keep On... 
019E AO F7 LDY #CNTMAD Show "Cannot" and 
0140 40 22 02 MVMSML JMP MSGAML return to main Loop. 

, 
O1A3 B5 Ol DIROK IDA 1,X% Pick up new lccation 
01A5 29 1F AND #$1F 3 number, get LS 5 
; bits for LOCNUM, and 
O1A7 40 03 01 NEWLNK JMP NEWLOC Go to new location. 
: OBUSE (Object Use, or Employment) 

0148 AY 49 OBUSE ¿DY ORJ 
O1AC A5 45 LDA LOCNUM 
O1AF 88 DEY Is object Bird? 
O1AF FO 11 BEQ OBUBRD Yes. Go use it. 
01B1 88 DEY Is object Rope? 
01B2 FO 21 BEQ OBUROP Yes. Go use it, 
0154 A2 07 LDX #GULLY 
0186 88 DEY Is object Rod? 
01B7 FO 24 BEQ OFLROD Yes. Go to File/Rod use. 
0189 A2 05 LDX #STGRAT 
O1BB 88 Du Y Is object File? 
01BC FO iF BEQ OFLROD Yes. Go to Fite/Rod use. 
01BE AO 85 NOJMSG LDY #NOJMAD Show 
0100 DO DE BNE MVMSNI "No Joy" (via MOVER). 
0102 C9 96 OBUBRD CMP #RYHALL Used Bird at Royal Hall? 
01C4 DO F8 BNE NOJMSG No == nothing happens. 
0106 AS 40 LDA DRAGON yes, Dragon hungry? 
01408 FO F4 BEQ NOJMSG No, dead. No effect. 
DICA C8 INY Yes! "Using" Bird is 
01cB 84 40 STY DRAGON like “feeding him to 
01CD AO BD LDY #ADDGMS Dragon!" Show 
G1CF 20 B3 02 JSR FILMSG "Dragon Eats Bird". 
01D2 4C ?F 02 JMP OBDELE Go delete Bird. 
01D5 C9 06 OBUROP CMP #HOLE Used Rope in Hole? 
01D7 DO E5 BNE NOJM3G No. No effect, 
01D9 AS OD LDA #NFIT Yes, so got out to 
01DB 10 CA BPL NEWLNK N., Pit (via MOVER). 
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01DD 


O1DF 
01E1 
01E3 
01E5 
01E7 


01E9 
O1EA 


O1EC 
O1EE 
01FO 
01F2 
01F3 
01F5 
01F7 


0200 
0201 
0203 
0204 
0205 
0207 
0208 
O20A 
020C 
020D 
020F 
0212 
0214 


A6 
B5 


E8 
EO 
DO 
60 


45 
DD 
YE 
65 


65 


BB 


IF 
01 
00 


EF 
Fr 


OD 


01 


01 
43 


39 


48 
OF 


O se 2. oo “ws na Se ee Y7 we wa ua “we us 


OFLROD CPX LOCNUM Used File at Grate or 
è Rod at Gully? 
BNE NOJMSG No. No effect. 
LDA ADOPGR-5,X Yes. Is Grate open or 
CMP LNAMAD ,X is Bridge made? 
BEQ NOJMSG Yes. No effect. 


STA LNAMAD ,X No. Open Grate or 

s make the Bridge. 
TXA Show the new state 
BPL NEWLNK of this location. 


DELOBJ (Delete Object) Subroutine. 


Call with DLOBAD = page zero address 
of the object to be deleted from file. 


LDX DLOBAD Point to obi to delete. 
LDA 1,X Move all files down 
STA 0,X one location until 
INX obj is overwritten. 
CPX #EOCM+1 Done yet? 

BNE DOBLP No, cor.tinue. 

RTS Yes, return. 


OBHNDL (Object-Handler) segment. Entered 


with A-reg filled with either of key- 

depressions B,C,D, or E. (Arrival at 

a location looks like a B-keyin. ) 

3=Browse. Produces list of objects, 
with no action allowed. 

C,D,E = Carry, Drop, Employ. Each 
produces object list, but during 
list, any key causes action on 
object currantly displayed. 


SEC Change B,°,D, or È to 

SBC #$D -21,03 or 1. 

TAX 

LSR Set up Y-rez for LOBSCH: 
AND #1 Y=1 (current loc)-B,C: 
TA Y Y=0 (EGO file)-D,E. 

EOR #1 Flip state to get "loc- 
STA LINTAX of-interest-adr-index". 
INX Change B,C,D, or E to 

STX SCDU -1,0,1, or 2 for SCDU. 
JSR LOBSCH Get LOBJAD, no, of obj's. 
STY NOBS Save no. of obj's for loop. 
BEQ MLLINK If nothing here, cone! 


$ 
; Begin object-handling processing... 
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0216 
0218 
O21A 
021C 
022E 
0220 
0222 
0225 


0228 
022A 


022D 
022F 
0231 
0233 


0235 
0237 
0239 
023B 
023E 
0240 
0242 
0244 
0246 
0 248 


O24A 
024B 
024D 
024F 


0252 
0254 
0256 
0257 
0259 
0258 
925D 
025F 


0261 
0262 


A6 
DO 
A5 


DO 
AO 
20 
4C 


BY 
20 


c6 
30 


Bi 


B6 
86 
B4 
20 
AX 
30 


C9 


Vs 


DO 


83 
30 


4C 


AO 
A6 
CA 
DO 
A5 
29 
C9 
DO 


BA 
30 


29 
AA 


F7 
LQ 
08 
JE 


20 
BF 


HOWMSG 
02 MSGAML 
“Ot MLLINK 
OBHMDS 
02 
OBNEXD 
02 
OBN 
OBHXQT 
01 


OBCARY 


- OBCDCK 


LDX 
BNE 
LDA 
CMP 
BNE 
LDY 
JSR 
JMP 


$ 
LDY 
JSR 


DEC 
BMI 
LDY 
STY 


LDX 
SPX 
LDY 
JSR 
LDY 
BMI 
CMP 
BNE 
DEC 
BNE 


> Executie: of 


DEI 
BMI 
BEQ 
JMP 


a ft A 1 > 2 
e OBCARY LORI 


LDY 
LDX 
DEX 

NE 
LDA 
AND 
CMP 
BNE 
TXA 
BMI 


o 
, 


SCDU 
OBHMDS 
NOBCRY 
#4 
OBHMDS 


#HOWMAD 


FILMSG 


MNMVLP 
CYMSAD ,X 


FILMS‘: 


NOBS 
MLLINK 
LOBJAD 


DLOBAD 


O,Y 
OBJ 


OBMSAD , X 


FILMSG 


SCDU 


ORN 


#$15 


OBHXQT 
LOBJAD 
OBNEXD 


OBCARY 
OBDROP 
OBUSE 


#CNTMAD 
OBJ 


OBCDCK 
BURDEN 
#528 
HBO 
FOWMSG 


MSGANL 


NO. 


"Carry" command? 

No. Continue. 

Yes, but is he already 
carrying four things? 

No. Continue. 

Show "How ? "he 

Display the message. 

Return to Main Move Loop. 


Show "I See-", 
"Drop-", or 


"Carry-", 
"Use - ", 


Showed all obj's yet? 
Yes, Nothing else to do. 
Save addr of this object 
; in case it's to be 

deleted from the file. 
ave the 

object number. 
Show the 

object's name. 

Just locking? 

Yes, display next one. 
Carry/Drop/Use this obj? 
Yes. Execute obj-handle. 
Point to next object, 

and show it. 


5 
S 


object<handling begins: 


Go Carry object. 
Go Drop object. 
Go Use object. 


eoteCarvevine) segment. 


Is object Bird? 
No, see if Dragon, 
Yes. Is he carrying 
the cage ani 
not the rod? 

"How carry Bird?" 


Is obj Dragon (X=$FF)? 
Yes. Show “Cannot”. 


Finally ready to carry the 


indicated object... 


A 


0264 
0266 
0268 
O26A 
026C 
026F 
0271 


0274 
0276 


0278 
027A 
027D 
O27F 
0281 
0283 
0285 
0286 
0288 
028A 


028D 
028F 


0291 
0293 
0294 
0296 
0298 
029A 
029C 
029E 
02A0 
02A2 
O2A4 
02A7 
02A9 
02AC 


AO 
DO 


47 
35 
4D 
3E 
90 


EC 


BD 


LY 
01 
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01 


02 


OBOKCY 


OBDELL 


DONMSG 


OBDROP 


OBDELE 


INC 
LDA 
ORA 
STA 
JSR 
DEC 
JSR 
LDY 
BNE 


o 
a 
9 
0 
a 
9 
9 


INC 
JSR 
INC 
DEC 
LDX 
LDA 
SEC 
SBC 
STA 
JSR 
LDA 
BPL 


LOX 
DEX 
BNE 
LDA 
CMP 
BNE 
LDA 
STA 
STX 
LDA 
STA 
LDY 
JSR 
BEQ 


NOBCRY 
BURDEN 


OBJMSK,X 


BURDEN 
ÁDDOBJ 
EGOLAD 
DELOBJ 


#DONE 
MSGAML 


EG OLAD 
ADDOBJ 
DLOBAD 
NOBCRY 
OBJ 

BURDEN 


OBJMSK=1 y 24 


BURDEN 
DELOBJ 


DRAGON 
DONMSG 


OBJ 


DONMSG 
LOCNUM 
#8 
DONMSG 
FORAGAD 
DLOBAD 
DRAGON 
#5 | 
ADDGMS 
#ADDGMS 
FILMSG 
OBDELL 
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OK to carry object. 
Bump carry count, 
and indicate 
what's being carried. 

Add obj to EGO file. 

Move everything down 1, 
and delete object 
from location file. 


Show “Done” message 
and return to 
Main Move Loop. 


OBDROP (Object-Dropping) segment. 


Move everything up 1, 
and add object to 
location file. 

Delete object from 
EGO file, 
indicate one less 
object carried, 
and remove 
"object-flag” from 
Burden list. 


Is Dragon alive&hungry? 
No. All done. 


Was Bird 
just dropped? 


Yes, are we 
at Royal Hall’? 
Yes, so Dragon is 
scared off. 
Change msg length 
so proper msg 
is shown, and 
go show ito 
Delete Dragon. 


OZAE 
0250 
02B2 


0233 


0285 
02B7 
02B9 
02BB 
O2BD 
O2BE 
02C0 
02C1 
0202 
0203 
o2c4 
0205 


02C7 
0209 
O2CB 
02CC | 


02CE 
02D0 
02D2 
02D3 
$2p4 


02D6 
0208 
02DA 


02DC 
02DD 
02DF 
O2E1 
02E3 
02E5 
0287 


18 
AS 


86 


2? 
C9 
FO 


AA 
B5 
A6 
95 


EO 
90 


BA 
YA 


LA 
00 


00 
FE 


LA 


de 
01 


iF 


> FD 


j 
© 


FD 


OF 
01 
26 
LP 


FO 
E8 


D2 


Prj ce 59 20 oo we ee 


LM1 


FILMSG 


MFLOOP 
MFLAP 


STMSH 


STLSH 


routine» 


FILMSG (Fill WINDO, display message) Sub- 
Unpacks and displays a word 


or series of words, starting at ADL 
specified by Y-reg at time of call. 
Message is in page specified by con- 


tents of POINTR+1. 


CLC 
ADC 
TAY 


STY 


LDX 
LDY 
STX 
STX 
CLC 
LDA 
PHA. 
ROR 
LSR 
LSR 
LSR 
BEQ 


CMP 
BEQ 
TAX 
LDA 
3 

LDX 
STA 
PLA 
INX 
STX 


AND 
CMP 
BEQ 


TAX 
LDA 
LDX 
STA 
INY 


CPX # 


BCC 


TXA 
POINTR 


POINTR 


#0 

#0 
DISNXM 
LCTR 


(POINTR),Y 


MSHRPT 


#1 
IUBYT 


FUTBL-2 5X 


LCTR 
WINDO,X 


LCTR 


ASF 
#1 
TUNXWD 


FUTBL~2,X 
LCTR 
WINDO,X 
INX 

6 
MFLOOP 
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Calls LIGHT S/Ro 

To display next word, 
ada DISNXM to POINTR, 
place in Y-regs and 
call S/R again... 

S/R ENTRY POINT ###4#%% 
¿ Save msg ADL. 

Clear letter-countera 

Clear byte pointer. 

Clear “continue” flag. 

Save letter-counter. 

C=0 to address FUTBL. 

Get next byte, and 
save a copy. 

Shift in CARRY bit, 
then move CARRY+MSH 
to lower part 
of the byte. 

NSH=0 means LSH is a 

s repeat pointer. 

MSH=1 means LSH is an 
index to IUTBL. 

MSH>2, so use C + MSH 

to point to char-code. 


Use letter-counter to 
put code in wirdow. 
Get copy of current byte. 

Increment and 
save the letter count. 
1 (At this point, FILMSG 
; could be done, and a 
; check should be made 
; fox "Done 67 To 
; save 4 igus “1 let it 
s run till ending on a 
byte boundary: « » è RCL) 
rtract LSH of the byte. 
If =1, next byte is IU 
letter code. 


Use this byte’s LSH as 
FUTBL pointer. 

Use letter-counter to 
put code in window. 

Bump both pointers. 

Done yet? 

No. Continue. 


02E9 AO CO DONFIL LDY #$CO **($02EA)=Display speed** 


02EB 20 00 00 SHMSG JSR LIGHT Make several calls to 

02EE 20 00 00 JSR LIGHT the display/keyboard 

O2F1 88 DEY subroutines. 

O2F2 DO F?7 BNE SHMSG 

02F4 A6 FE LDX DISNXM Display another word? 

O2F6 DO B6 BNE FLM1 Yes. Go do it. 

02F8 60 RTS No. Return with key (if 
; any) in A-reg. If no 
; key hit, A = $15. 

02F9 68 MSHRPT PLA The current byte is an 

O2FA 85 FE STA DISNXM offset to next msg. 

O2FC C6 INY Save it, point to 

O2FD 10 BC BPL MFLOOP next byte, continue. 

O2FF 68 IUBYT PLA The current byte is an 

0300 10 DA BPL STLSH IUTBL pointer, Use it. 

0302 C8 IUNXWD INY Point to next byte. 

0303 38 SEC C=1 will add 16 to FUTBL 

0304 BO B8 BCS MFLAP pointer; thus we have 


; an IUTBL pointer. 


; Messages. Starting at a point in page 3 

specified by POINTR, the FILMSG S/R 

; examines this data a half-byte at a 

; time to extract a 6-character message. 

; Each half-byte may be one of the 

; followirgs 

¿ 0, meaning "Save the next half-byte. When 

; the current display is done, use that 

; value to advance POINTR, and go through 

; FILMSG again for a new display.” 

; 1, meaning "Use the value of the next 

; half -byte as a pointer into IUTBL." 

$ 2 - F, meaning "Use this value as a pointer 

; into FUTBL." 

; (See IUTBL and FUTBL at $002F, $0021.) 

; (Key to character-codes is yt end of this table.) 
I R 


0306 35 88 2B CELLAR CE LL 

0309 05 16 EB 16 85 AB 23 85 PURPLO #5 Px UR Px LE OR AC LE 
0311 03 FB 54 FF BA A1 5F REDRM #3 RED RC ON x* 
0318 07 CD A9 5F STSTPS #7 ST ON E 

031C 16 52 B8 PEARLS Px FA RL 

031F CD 51 6C ST EP xS 

0322 F3 21 35 CAGE C AG xE 

0325 F1 27 85 FILE F xI LE 

0328 F3 6E D5 CHUTE C HU TE 

032B 05 11 B7 41 35 BRAGM #5 Bx RI DG xE 

0330 08 23 BA CC #8 AC RO SS 

0334 OC FA 16 59 OPNGRM FC O Px EN 

0338 F1 3E 88 18 GULLY G xU LL Yx 
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033C 04 CD 55 8F STGRAT #4 ST EE L 


0340 13 B2 D5 Gx RA TE 

0343 FB AL 65 ROPE R OP xE 

0346 F1 3A 84 GOLD G x0 LD 

0349 F3 21 35 CAGE C AG xE 

034C F4 A9 5F DONMAD DONE 

034F 2F 6A 85 HOLE A HO LE 

0352 07 FD 71 36 TSHAPT #7 T IG xH 

0356 DE 99 58 TUNNEL TU NN EL 

0359 FC 62 12 DF S HA Fx T* 

035D 05 1B 10 79 36 SLIT #5 2x -x IN CH 

0362 04 FC 87 DF #4 S LIT 

0366 09 79 FD 65 #9 IN T HE 

036A OD Ai 8C D5 BF OYSTRB #D OY xS TE R* 

O36F 08 #8 

0370 CD BS 21 STREAM ST RE AM 

0373 51 AF 16 7D EPIT Ee x Pe E 

0377 F1 01 15 4F - xB xE D 

037B 04 BA 18 28 F6 28 8F RYHALL #4 RO Yx AL HALL 

0382 2F 13 85 GLEN A Gx LE 

0385 9A F1 4A 18 NOJOY NO J xO Yx 

0389 EF BF 2D URAT U R AT 

038C EF BF 79 URIN U R IN 

038F 08 2F C7 13 ASSMAD #8 & SI Gx 

0393 91 AF 16 7D NPIT Ne x Px IT 

0397 07 FC 21 8C #7 S AY xS 

039B F2 DD 73 ATTIC A TT IC 

039E 05 15 21 37 3F MBISAD #5 Mx AG xIC 

0343 05 11 ED DA 9F #5 Bx UT TO N* 

0348 F? CF 1D IS @x 

03AB FÉ AE C5 HOUSE H OU SE 

O3AE FE C5 Fl USE USE - 

03B1 07 62 8D 54 HBDRGN #7 HA LT ED 

03B5 7F C5 51 ISEE I SE E- 

03B8 06 11 18 FD 65 #6 Bx Yx T HE 

03BD OE ADDGMS #E (Change to #5 for 
; Scared Out...) 

035E 4B 21 3A 9F ADDRAG DR AG x0 N* 

03C2 04 C3 2B 54 #4 SC AR ED 

03C6 09 AE DF 11 18 #9 OU T Bx Yx 

03CB 04 F5 2D CF #4 EATS 

03CF OD 87 DD 85 #D LI TT LE 

03D3 OF Fi 183 E5 BLUDEN #F B xL UE 

03D7 F4 BA 16 10 DROP D RO Px -x 

03DB 04 BIRDRM #4 

03DC Fi 17 B4 BIRD B xI RD 

O3DF FB AA 15 R 00 Mx 

03E2 F4 59 D EN 

03E4 FF BA 4F ROD RO D 

03E7 32 BB 18 10 CARRY CA RR Yx -x 

OJEB C1 AF 16 7D SPIT S. x Px IT 

O3EF 13 BA DD AF GROTTO Gx RO TT 0% 
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03F3 
03F7 
O3FA 
03FC 


1780 
1782 


1784 
185 
1787 
1789 
1784 
178C 
178D 
178F 


12 AB 5C DF 


32 99 AD 


6A 


17 


Fi 9F FF 1C 


B6 
AO 


E8 
86 
B5 
OA 
30 
C8 
90 
60 


41 
FF 


diy 
01 
F8 
r9 


tlt we se co na va 0 os sð z9 VG uy VE “e 37 wë We vo GS 10 CS we YS Ve vo +6 və du ve us əy və we we we 


FOREST 
CNTMAD 
HOWMAD 
CUEMAD 


Fx OR ES T* 
CA NN OT 
HO Wx 

? X &X 


Key to characters used in right-hand column 


of above.table: 


Letter or space -- the FUTBL 4-bit code 
for that letter or space. 


Letter, dash, 


a MS ar 2y followed 


by "x" -- the IUTBL 8-bit code for that 


character. 


"@x" -- the IUTRLI 8-bit code for the 
character stored in IUTBL (by the 


NEWLOC and 


MNMVLP segments) as 


part of the Magic Button message. 
"ex" -- the 8-bit code fer the Signpost 
character stored in IUTBL (by the 
NEWLOC segment) as part of CUE msg. 


#n -- the number, n, of bytes (in hex) to 
advance POINTR in order to point to 
the next successive message. 


* -- a "wasted" half-byte 


e deg 1802 0 009 5 8 0 0 SÒ d 0 0 9 è a I 9 0 a 00 2 9 09 


LOBSCH (Last Object Search) subroutine. 
Finds, and saves in LOEJAD, the address 
of the last object in a file; also 
counts, and returns in Y-reg, the number 
of objects in the file. File to search 
is ECO file if celle with Y=0; is 
Pile at LOCAD if called with Y=1. 


OBSCH IDX 
LDY 


OBFIND INX 


SLA 
LDA 
ASL 
BMI 
INY 
BCC 
RTS 


EGOLAD, Y 
BFF 


LOBJAD 
19% 
OBFIND 


OBF IND 
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Get pointer to file. 
Init object-count. 


Save addr of last ob}. 
Set ur to test bits 

7 & 6 of each location. 
b6=1. Not an object. 
Bump object-count. 
b7=0. An object. Continue, 
b7=1. End of file. Done. 


ADDOBJ (Add Object) subroutine. Called to 
add a dropped object to a location file, 
or a picked-up object to EGO file. 
LINTAX is the pointer to the address of 
the location of interests 0 for EGO, 

1 for file specified by LOCAD. Calls 
LOBSCH subroutine. Object to be added 
is specified by contents of OBJ. 


1790 AY 43 ADDOBJ LDY LINTAX Point to file of interest. 
1792 20 80 17 JSR LOBSCH Find last obj‘'s address. 
1795 A2 EE LDX #EOCM Start at End of Cave Map. 
1797 B5 00 AOBLP LDA 0,X Move all files up one 
1799 95 01 STA 1,X location to make room 
179B CA DEX for the object. 
179C E4 44 CPX LOBJAD Done yet? 
179E DO F7 BNE AOBLP No. Keep moving. 
17A0 AS 49 LDA OBJ Yes, store object just 
17A2 95 01 STA 1,X above last object in 
17A4 60 RTS the file; return. 

s SPROC (Special Processing) segment. 

e Entered from Main Move Loop (MNMVLP) 

; following a "direction" command, this 

; code takes care of any special pro- - 

; hibitions against moving in the com- 

so. manded direction. (Examples -- can't 

q” go through a steel grate, or past a 

; dragon.) Possible exits from SPROC 

; ares to MOVER, if no problems with 

s the commanded direction, 

; to HOWMSG, if “How ? “ is to be 

o shown to indicate improper 

‘ conditions for the move, or 

; to MSGAML, showing “Halted By 

; The Dragon", if appropriate. 
17A5 AB SPROC TAY 
1746 84 F7 STY DIR Save direction for MOVER. 
17A8 A6 45 LDX LOCNUM 
17AA B5 65 LDA LNAMAD,X If at grate (or gully), 
17AC D5 LF CMP ADOPGR=5,X is grate open (or is 
S ; bridge made)? 
17AE FO 08 BEQ SPATS Yes, move is OK. 
17BO E0 05 CPX #(ADGRM-LNAMAD) No. At closed 

$ grate” 
17B2 FO 24 BEQ SPCHKD Yes, disallow Down. 
17B4 EO 07 CPX #(ADGYM-LNAMAD) At bridgeless 
$ gully? 

17B6 FO 22 BEQ SPCHKW Yes, disallow West. 
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17B8 
17BA 
17BC 
17BE 


17C0 
17C2 
17C4 
17C6 


17C8 
17CA 
17CC 
17CE 
17DO 
1'7D1 
17D3 
17D5 


17D8 
17D9 
17DA 
17DC 
17DE 


17E1 


1784 


17E5 
17E6 


AR ESCO 


88 
88 
co 
DO 
4C 


Lo 


00 


00 
00 


22 02 


03 
20 02 


8B 01 


BOX 1142 
COLUMBIA 
MD 21044 


(301) 730-5186 


SPATS CPX 


BNE 
LDA 
BNE 


SPATSS CPX 


BNE 
LDA 
BMI 


5 
SPATRH CPX 


BNE 
LDA 
BEQ 
DEY 
BEQ 
LDY 
JMP 


SPCHKD DEY 
SPCHKU DEY 
SPCHKW CPY #3 


BNE 
JMP 


SPCONT JMP 


te voe vus 


$ 
These three bytes 
are left spare for 
user expansion»... 


#(ADTSM-LNAMAD) At shaft? 


SPATSS 
NOBCRY 
SPCHKD 


Yes, carrying anything? 
Yes, disallow Down. 


#(ADSSM-LNAMAD) At steps? 


SPATRH 
BURDEN 
SPCHKU 


Yes, carrying Gold? 
Yes, disallow Up. 


#(ADRHM-LNAMAD) At Royal Hall? 


SPCONT 
DRAGON 
13 PCONT 


SPCONT 


#HBDMS 
MSGAML 


SPCONT 
HONMSG 


MOVER 


Yes, is Dragon there? 


Yes, but going East 
is OK. Continue. 
All other directions, 
"Halted by Dragon." 


Check for Down, 
for Up, or 
for West. 
Other directions are OK. 
Disallowed direction 
produces "How ? *, 


Continue Move process. 
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010B 
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0113 
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0119 
011B 
011D 


011E 
0121 


0124 
0126 
0129 
012B 
012C 
012E 
0130 


4C 


85 
A2 


ES 
ES 
B5 


86 
29 


C5 
60 


20 
B5 


60 


6D 
50 


A2 
BD 
95 
CA 
DO 
86 
20 


24 01 


45 
7B 


00 


42 
iF 
45 


F2 


03 01 
00 


OA 


5C 
00 


58 
19 


06 
1D 01 
EF 


F8 
FE 


E9 02 


VSCOR 


tri eo =o we «e ee wn vo TK ve ve ve se wo vo we we we 


OCSCH 


CKLNUM 
CKLNLP 


VISO 


<< "us so wwo wa 
Y 


ISCHK 


SCRMSG 


BGNSCR 
SCMLP 


K - V SCORE 


© Copyright R.C.Leedom 1979 

The K-V SCORE program is to be loaded 
immediately following a KIM-VENTURE 
ame, and run starting at locatior 
100. K-V SCORE wili provide a rating 
(which may be from Class A all the 

way down to J, or -- at the bottom -- 

Class 0), and a count of the moves 

made by the player (up to 9999). 

JMP BGNSCR 


LOCSCH (Location Search) Subroutine. 


Created from KIM-VENTURE*s NEWLOC, 
this S/R (when called with A-reg = 
Location number) will. search for tne 
location file and will return LOCAD 
in tne X-register. 
STA LOCNUM Save location number. 
LDX ASOCM-2 Start-of-cave-map is 
3 used as startine 
; point for file search. 


TNX 

INX 

LDA 0,X Is this a start-of-file? 
BPL CKLNLP No. Keep looking. 

STX LOCAD Yes, save file address, 
AND #$1F and see if it's the 
CMP LOCNUM one We wart oes 

BNE CKLNUM No. Look for next file. 
RTS Yes. Done, so return. 
HK (Visit Check) Subroutine. Call with 
A-reg = location number. S/R will re- 
turn A-reg <0 if location way visited, 
else A-reg >0. 

JSR LOCSCH Go get LOCAD in X-reg. 


LDA 0,X Now get header word of 
ASL ASL location file, shifted 
RTS to show "visit" bit, 

$ and return. 

DATA 6D 58 5C Data for "SCORE " msg. 


DATA 50 79 00 


: BGNSCR (Begin Seoring) segment. (Main prog.) 
> 


LDX #6 
LDA SCRMSG-=1 
STA WINDO-1,X 


Display the six 
characters of tne 
score message: 


DEX save them in tne 

BNE SCMLP window, indicate 

STX DISNXM "no more displays", 
JSR DONFIL and call a few LIGHTS. 


; MVCONV (Move Conversion) segment. Converts 
; the double precision move counter to 
; a decimal number (up to four digits). 
0133 18 MVCONV CLC 
0134 F8 SED Set decimal mode. 
0135 A9 00 LDA #0 Clear Binary Coded 
0137 85 61 STA BCDLSH Decimal, Least and 
0139 85 62 STA BCDMSH Most Signif. Halves. 
013B A5 4C LDA MOVES Is LSH = 0? 
013D FO 10 BEQ MSADD Yes, go add up MSH. 
013F A5 61 LSADD LDA BCDLSH For LSH, a double 
0141 69 O1 ADC #1 precision add 
0143 85 61 STA BCDLSH of one count 
0145 AS 62 LDA BCDMSH for each unit 
0147 69 00 ADC #0 of the LSH of 
0149 85 62 STA BCDMSH the move counter. 
014B C6 HC DEC MOVES 
014D DO FO BNE LSADD 
; 
014F A6 41 MSADD LDX EGOLAD Get MSH of the move 
0151 B5 01 LDA 1,X counter, save it, 
0153 85 60 STA MOVMSH and if zero, we 
0155 FO 10 BEQ DSPFIL are done... 
0157 A5 61 MSAD1 LDA BCDLSH For MSH, a double 
0159 69 56 ADC #56 precision add of 
015B 85 61 STA BCELSH 256 counts 
015D AS 62 LDA BCDMSH for each unit 
OL5F 69 02 ADC #2 of the MSH of 
0161 85 62 STA BCDMSH the move counter. 
0163 D6 O1 DEC 1,X 
0165 DO FO BNE MSAD1 
> DSPFIL (Display Fill) segment. Fills tne 
; display window with digits corresponding 
; to score, and blanks (up to) two leading 
; zeroes. 
0167 D8 DSPFI.: CLD 
0168 AS 61 LDA BCDLSH For LSH of score, 
O16A 29 OF AND #3F get lower digit anc 
016C AA TAX corresponding segment 
016D BD E7 iF LDA DIGCOD,X code from monitor, and 
0170 85 F5 STA WINDO+5 put in display window. 
0172 AS 61 LDA BCDLSH Similarly, get upper 
0174 LA 4A LSR LSR digit of LSH of 
0176 LA YA LSR LSR score, use to get 
0178 AA TAX segment code from 
0179 BD E7 1PF LDA DIGCOD ,X KIM monitor, and put 
017C 85 F4 STA WINDO+4 in display window. 
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017E 
0180 
0182 
0184 
0185 


0187 
0188 
0188 
018D 
018F 
0191 
0192 
0193 


0195 
9196 


0198 1 


019B 


01 39D 
019F 
OLAI 
91A 3 
0145 
Q1A? 
0149 


O1AB 
O1AD 
O1AF 
0182 
0134 


9187 8 


91R9 
21BB 
01 BD 
D1RF 
0102 
010% C 
0105 | 
DIC? 
01C9 
OICR 
0100 
01CE 
01DO 
01D3 
01D6 


AS 


A2 
A5 
C9 


59 


62 
HA 
HA 


04 


E7 
FE 
62 
OF 


03 


08 
03 
12 
64 
00 


1F 


qF 


01 


GO 


02 
02 
02 


LDA BCDMSH For MSH of score, 

LSR LSR first get upper digit. 

LSR LSR 

TAY Is it zero? 

BEQ LZ1BNK Yes, blank it. 

TAX Use nonzero upper digit 

LDA DIGCOD,X to get segment code. 
LZ1BNK STA WINDO+2 Put MS digit in window. 

LDA BCDMSH Get next most signif. 

AND #$F digit and 

TAX save it. 

TYA Was MS digit zero? 

BNE NOBNK2 No, so don’t blank 

; this digit. 

TXA Yes, is this one zero? 

REQ LZBNK2 Yes -- both zero! fo 

; blank this one too, 
NOBNK2 LDA DIGCOD,X Get code for end MSD. 
LZBNK2 STA WINDO+3 Fill the remaining 

; slot of the window, 
3 CLASS sesment. The remaining code 
; determines the player's classification 
; based on what was accomplished in the 
; course of the game. 
GLASS LDX #$71 Class F if 

LDA LOCNUM 

CMP #6 ir, the hole 

BNE CELSCH 

LDA BURDEN 

AND #4 without the rope, 

BEQ WSLNK Go show "F", 
CELSZH LDA #0 Sellar search to see 

STA OBCELR if any treasures 

JSR LOCSCH have been left 

LDY #1 here». 

JSR LOBSCH 

STY NOBS Anvthirg here? 

BEG CVLINK No, check cave visits. 
OBCSET LDY O 9k Yes, So set up 

LDA OBCELR ORCELR whic! wiil 

ORA OBJMSK<-1,% have a bit set for 

STA OBCELR each object left 

DEX in the cellar. 

DEC NOBS 

SNE OBCSET 

LDX #$39 Class C if only one 

ASL treasure here, 

BMI PICLNK Pearls, Ser if “old too. 

BCS WSLNK : No Pearls, Gold only, 
CVLINK JMP CAVIS Neither, creck cave visits. 
WSLNK JMP WINSET Go set window with class. 
PICLNK JMP PICLNK Continue cellar check, 
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0200 
0202 
0204 
0206 
0208 
O20A 
020C 
020E 
9210 


0212 
0214 
0217 
0219 
0218 
021E 


0220 
0222 
0223 
0226 
0228 
0224 


0226 
022D 
022 
0231 


0233 
0235 
0237 
0239 
023B 


90 
A2 
A5 
DO 
A9 


90 
Az 
DO 


A9 
20 
10 
A9 
20 
10 


AO 
98 
20 
30 
AZ 
DO 


88 
10 
A2 
DO 


A2 
A5 
FO 
AS 
DO 


D1 
7C 
62 
CB 
40 
61 
C5 


n 


Na. 


02 
16 
1A 
OF 
13 


12 


16 
ob 
re 
A7 


F3 
5E 
AO 


3D 
40 
9A 
3D 
96 


C1 


01 


Note 


PT] <s we er no vs vo 


CAVIS 


VISCLP 


NXVCLP | 


that 1D9 - 1FF not used. Cellar 
check continues in Page 2... At 
this point we have verified that 
the Pearls are there and are 
testing for Gold. A-reg has been 
preloaded with Class C. 


BCC WSLNK Pearls only. Class C. 
LDX #$7C Have placed both 

LDA BCDMSH treasures in cellar, 
BNE WSLNK but unless done in 
LDA #$40 less than 41 moves, 
CMP BCDLSH this is only 

BCC WSLNK Class B. 

LDX #$77 Class A for both in 
BNE WSLNK cellar, moves $40! 
LDA #2 No treasures returned. 
JSR VISCHK Visited Red Room? 

BPL .DRAGCK No. 

LDA #$F 

JSR VISCHK Visited Oyster-Bed? 
BPI DRACCK NO» 

: Have found (but not recovered) both 
; treasures, so at least Class E. 
; See if visited all rooms of 

; caverns te earn Class Doae. 

LDY #$12 

TYÀ 


Visited this one? 
Yes, keep checking. 


JSR VISCHK 
BMI NXVCLP 


LDX #$79 No, missed one, so 

BNE WSLNK show Class E. 

DEY Checked O thru $12? 

BPL VISCLP Not yet. 

LDX #$5E Yes, and all were visited, 
BNE WSLNK so show Class D. 


DRAGCK 


> In the code below, no qualifications 
; have yet been met, so we'll 

; first see if Class G has been 

; earned either by scaring off the 
; Dragon or by using F-Kkey.... 


LDX #$3D 

LDA DRAGON 

BEQ WSLNK Dragon is gone! 

LDA NMBUTS 

BNE WSLNK F-key used correctly! 


- Continuing, let's see if he at 
; least got into the caverns...» 
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023D 
023F 
0242 


024, 


0245, 


A9 
20 
A2 
A8 
30 


0247 A9 
0249 20 
024C AZ 
OLHE AB 
024F 30 
0251 AO 
0293 BO 
0256 20 
0259 30 
0253 A2 
025D DO 


025F 88 
0260 19 
0262 A2 
C264 BE 
C266 A9 
0268 35 
G26A 20 
025D 40 
1290 C5 
0273 16 


14 
76 
BC 


Ort © 
WIS 


20 
16 
04 
ZF 


NE 


01 


01 


PA 
I 


01 


TUNCK 


APOQYLP 


ABYCON 


WINSET 


END 


<Q wo 


a 


STBL 


LDA #$14 

JSR VISCHK 

LDX #$76 

TAY Visited Tunnel? 
BMI WSLNK Yes, show Class H. 


Well, did he even get into the 
cellar of the house...,? 


de vé wu 


LDA #0 

JSR VISCHK 

LDX #6 

TAY Visited Cellar? 
BMI WSLNK Yes, show Class JI. 


; OK, maybe re forgot he could use 

; up and down as directions, 

: But did he do al! the exploring 
? possible with just N,F,S, and W? 
LDY #4 

LDA VISTBL,Y Visited House, Glen, 
JSR VISCHK Slit, Forest, Grate? 
RMI ABVCON 
LDX #$3F 
BNE WINSET 


No, missed one ~- 
show Class O, 


DEY Checked all 5 yet? 
RPL AROYIP No, keep checking, 
LDX #$1E Yes, show Class J. 
$ 

; 

STX WINDO Put class in window, 
LDA #$40 put dash after 
STA WINDO+1 that, and 

JOR LIGHT endlessiy show 
JMP END Class & Moves, 
DATA 05 09 15 Table of places to 


DATA 16 17 visit above-cround. 
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KIM-VENTURE MEMORY MAP 


0000 

LIGHT S/R 
0020 
0021 

Character table 
003C 
003D 

Variables 
004 
004D 

Constants 
007C 
007D 

Cave Map 
OOEB__ 
QOEC 

EGO File 


cin o 


n — e = e e 


OORE 

OOEF 
KIM Monitor 
variables -- 
some used by 
KIM-VENTURE 

OOFF 


0100 

START segment 
0102 
0103 

NEWLOC segment 


MNMVLP segment 
018A 
018B 

MOVER segment 


01A9 


O1AA 

OBUSE segment 
O1EB 
01EC 

DELOBJ S/R 
01F 






















0200 
OBHNDL segment 

0251 

0252 

OBCARY segment 





FLLMSG S/R 
(Entry: 02B3) 


LOBSCH S/R 


ADLOBJ S/R 







SPROC segment 


(spare ) 


nutre e 


DEC 1979 RCL 
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